PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/delphi2/delphite.exe/data.z/CUSTVIEW.DFM/CUSTVIEW.txt

Text File | 1996-08-12 | 3.8 KB | 192 lines

object fmCustView: TfmCustView
  Left = 227
  Top = 109
  BorderStyle = bsSingle
  Caption = 'Customers - Unfiltered'
  ClientHeight = 362
  ClientWidth = 493
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 12
    Top = 192
    Width = 93
    Height = 16
    Caption = 'Orders Query'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 36
    Width = 74
    Height = 16
    Caption = 'Customers'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 9
    Top = 128
    Width = 96
    Height = 25
    Caption = 'Filter &Customers'
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 343
    Width = 493
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object DBGrid2: TDBGrid
    Left = 132
    Top = 208
    Width = 350
    Height = 129
    Columns = <
      item
        FieldName = 'OrderNo'
      end
      item
        FieldName = 'Custno'
        Title.Caption = 'CustNo'
        Width = 45
      end
      item
        FieldName = 'AmountPaid'
        Title.Caption = 'Amount Paid'
        Width = 122
      end
      item
        FieldName = 'ShipDate'
        Title.Caption = 'Ship Date'
        Width = 83
      end>
    DataSource = DM1.OrdersSource
    TabOrder = 1
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGrid2Enter
  end
  object DBNavigator1: TDBNavigator
    Left = 132
    Top = 4
    Width = 88
    Height = 25
    DataSource = DM1.CustomerSource
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 3
  end
  object rgDataSet: TRadioGroup
    Left = 8
    Top = 60
    Width = 97
    Height = 61
    Caption = 'Dataset'
    ItemIndex = 1
    Items.Strings = (
      '&Query-Based'
      '&Table-Based')
    TabOrder = 2
    OnClick = rgDataSetClick
  end
  object DBGrid1: TDBGrid
    Left = 132
    Top = 33
    Width = 350
    Height = 163
    Columns = <
      item
        FieldName = 'CustNo'
        Width = 43
      end
      item
        FieldName = 'Company'
        Width = 154
      end
      item
        FieldName = 'Country'
      end
      item
        FieldName = 'LastInvoiceDate'
        Title.Caption = 'Last Invoice'
      end
      item
        FieldName = 'Contact'
      end
      item
        FieldName = 'City'
      end
      item
        FieldName = 'State'
      end>
    DataSource = DM1.CustomerSource
    TabOrder = 0
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnEnter = DBGrid1Enter
  end
  object GroupBox1: TGroupBox
    Left = 7
    Top = 224
    Width = 121
    Height = 81
    Caption = 'Orders Filter'
    TabOrder = 5
    object Label1: TLabel
      Left = 4
      Top = 52
      Width = 60
      Height = 13
      Caption = 'Amount &Paid'
      FocusControl = Edit1
    end
    object cbFilterOrders: TCheckBox
      Left = 8
      Top = 20
      Width = 109
      Height = 17
      Caption = '&Filter'
      TabOrder = 0
      OnClick = cbFilterOrdersClick
    end
    object Edit1: TEdit
      Left = 68
      Top = 48
      Width = 49
      Height = 21
      TabOrder = 1
      Text = '1000'
      OnChange = Edit1Change
    end
  end
  object MainMenu1: TMainMenu
    Left = 104
    Top = 5
    object About1: TMenuItem
      Caption = '&About'
      ShortCut = 0
      OnClick = About1Click
    end
  end
end